home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / Tools / Constructors / constructorstest.e < prev   
Encoding:
Text File  |  1992-09-02  |  217 b   |  12 lines
  1. -> constructortest.e
  2.  
  3. MODULE 'tools/constructors'
  4.  
  5. PROC main() HANDLE
  6.   DEF list,a
  7.   list:=newlist()
  8.   FOR a:=1 TO 10 DO Enqueue(list,newnode(NIL,'silly_nodes_test'+a,0,Rnd(100)))
  9. EXCEPT
  10.   WriteF('no mem!\n')
  11. ENDPROC
  12.